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PCM ONLINE 


Personal Computer Magazine, 
het ’moederblad’ van Commo- 
dore Dossier is het elektroni- 
sche tijdperk binnengestapt 
met een eigen bulletin board. 
PCM Netwerk On-line, zoals 
het bulletin board officieel 
heet, is de elektronische vari- 
ant van de gelijknamige ru- 
briek in dit toonaangevende 
computerblad. Omdat PCM en 
Commodore Dossier op tal van 
gebieden nauw samenwerken, 
spreekt het voor zich dat abon- 
nees van Commodore Dossier 
ook van harte welkom zijn op 
dit bulletin board. 

Let wel, het is geen bulletin 
board dat alleen maar over 
Commodore-computers gaat. 
PCM Netwerk On-line is een 
algemeen bulletin board, waar- 
in over tal van uiteenlopende 


computerzaken verslag wordt 
gedaan. Lezers van PCM en 
Commodore Dossier kunnen 
via het bulletin board tips ach- 
terlaten, wetenswaardigheden 
opdoen, ervaringen met elkaar 
uitwisselen, software down- 
loaden, noem maar op. 
System Operator, oftwel Sy- 
Sop van het PCM-systeem is 
Paul Molenaar. Zijn voor- 
naamste taak is het systeem 
aan de lezers te laten. In de 
praktijk betekent dit dat hij al- 
leen zal ingrijpen wanneer er 
ongevoeglijke taal in het 
systeem verschijnt of er in 
strijd met de wet wordt ge- 
handeld. 


BAUDRATES 

Hoewel PCM Netwerk On-line 
uit een aantal computers 
bestaat, die door middel van 
een complexe koppeling met 








elkaar verbonden zijn, heeft u 
thuis niet zoveel nodig om het 
netwerk te kunnen benutten. 
Het belangrijkste apparaat is 
de modem. Het Netwerk biedt 
de mogelijkheid om er op 300 
baud full duplex, 1200 baud 
full duplex en 1200/75 baud 
gebruik van te maken. Binnen 
overzienbare tijd worden deze 
snelheden uitgebreid met 2400 
baud full duplex. 


INLOGGEN 

Het inloggen op het systeem 
gaat zeer eenvoudig. Simpel 
het telefoonnummer 
020-5102870 draaien en u 
bent binnen. Wel even uw 
wachtwoord geven natuurlijk. 
Heeft u nog geen wachtwoord 
dan is er nog geen man over 
boord. U hoeft dan alleen uw 
persoonlijke gegevens als 
naam en adres in te 
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NETWERK ON-LINE 


020 5102870 


vullen, een wachtwoord te kie- 
zen en u kunt aan de slag. 


Wilt u meer weten over de 
werking van PCM Netwerk On- 
line dan is het raadzaam Per- 
sonal Computer Magazine 
nummer 9 te kopen. Daarin 
staat van de hoed en de rand. 
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Het in Ede gevestigde bedrijf 
Inductive Control Systems 
heeft een nieuwe joystick op 
de markt gebracht. Op zich 
niet zo bijzondere, ware het 
niet dat het hier om een zeer 
geavanceerde ’lolpook’ gaat. 
De joystick is voorzien van 
twee aktie- of vuurknoppen, is 


buitengewoon precies, terwijl 
de zogenoemde slag van de 
joystick en het schakelpunt 
naar believen versteld kan 
worden. Een ander voordeel 
van deze joystick, die als 


naam Marathon meekreeg, is 
dat hij zonder slijtage-gevoelige 
kontakten werkt. Een lange le- 
vensduur is dus gegarandeerd. 
Wat de joystick gaat kosten is 
nog niet bekend. 





CURSUSSEN 


Na de buitengewoon succes- 
volle gebruikerscursus Micro- 
cornputers en Basic van de 
Leidse Onderwijs Instellingen 
(LOI) introduceert deze onder- 
wijsinstelling een nieuwe cur- 
sus die speciaal is ontwikkeld 
vocr Commodore-gebruikers 
die hun basis-kennis willen 
verbreden. Commodore 
64-expert heet deze nieuwe 
cursus. Er is in deze cursus 
voor het eerst gebruik ge- 
maakt van een keuze-systeem, 
waardoor de cursist alleen die 
toepassingen bestudeert die 
(hij interessant vindt. Er kan 


COMMODORE DOSSIER AKTIEF 1 


gekozen worden uit zowel 
zakelijke als hobbyistisch 
gerichte specialisaties. 

Het studieprogramma stelt de 
cursist naar eigen voorkeur op. 
Zo’n programma kan bijvoor- 
beeld bestaan uit het werken 
met een database en tekstver- 
werken en spreadsheet, maar 
ook uit grafische en muzikale 
toepassingen gecombineerd 
met programmeren in machi- 
netaal en LOGO. In totaal kan 
uit 10 modulen gekozen wor- 
den. De cursus duurt minimaal 
zes maanden. 

Voor inlichtingen kunt u 

bellen (071- 451882) met de 
heer R. Wong. 











Reacties op Commodore Dossier en CD Aktief zijn natuurlijk altijd welkom. 


Alle briefschrijvers krijgen antwoord, maar niet alle brieven kunnen worden pena 


in deze nek Alleen vragen of opmerkingen die voor andere lezers ook in 


eressant 


zijn, Komen voor plaatsing in aanmerking. De redactie kan brieven inkorten bij 


ruimtegebrek. 


Uw reacties graag naar: Commodore Dossier, Rijnsburgstraat 11, 


VAN 40 NAAR 80 

Ik zou u willen vragen of het 
mogelijk is om doormiddel van 
een aantal poke opdrachten of 
van een of ander programma 
een 40 koloms beeldscherm 
‘om te bouwen’ tot een 80 ko- 
loms beeldscherm. Het is 
lastig werken met een tekst- 
verwerkersprogramma dat via 
de printer (MPS-801) wel 80 
tekens op een regel kan 
printen. 

Tevens zou ik u willen vragen 
of het mogelijk is (en hoe) om 
de programma’s CD/Base, 
CD/Calc, enz. aangepast kun- 
nen worden van het gebruik 
op de CBM-64 (waar ik nu 
mee werk) naar de CBM-128 
in de 128 mode, die ik over 
een tijdje wil aanschaffen. Tot 
slot wil ik u vragen of de pro- 
gramma van de programma 
service die op diskette staan 
ook volledig aangepast zijn 
aan het gebruik op de floppy 
disk. 

R.A.Hardeveld te Nieuwegein. 


Er zijn 2 mogelijkheden om de 
CBM-64 om te schakelen naar 
80 koloms. Ten eerste softwa- 
rematig, er zijn namelijk pro- 
gramma’s die dit kunnen ver- 
zorgen en ten tweede hardwa- 
rematig door middel van een 
speciale uitbreidingskaart die 
in de userpoort gestoken kan 
worden. De laatste oplossing 
is vrij duur. Doch aangezien u 
van plan bent om spoedig een 
C-128 aan te schaffen, zou ik 
voor 80 koloms op de CBM-64 
niet teveel moeite doen, aan- 
gezien 80 kolommen stan- 
daard op de C-128 aanwezig 
is. U heeft er wel een speciale 
monitor voor nodig (mono- 
chroom pim. f 400,- en in kleur 
plm. f 1000.). 

De programma’s CD/WORD, 
CD/CALC en CD/BASE behioe- 
ven in het algemeen niet te 
worden aangepast. De Basic 
2.0 waarin deze programma’s 
geschreven zijn, zit ook onder- 
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gebracht in de Basic 7.0 van 
de C-128. Alleen dienen be- 
paalde poke’s verwijderd of 
gewijzigd te worden. Wat uw 
slotvraag betreft, de program- 
ma’s vragen meestal zelf of u 
van cassette of diskette wilt la- 
den of saven, zodat u zelf de 
keuze kunt maken. 


€-128 POKES 

Sedert een paar maanden ben 
ik de gelukkige bezitter van 
een splinternieuwe C-128 met 
een 1541 diskdrive. 

Ik ben er zeer tevreden over, 
temeer daar men mij onlangs 
heeft gevraagd om mijn com- 
puter grafische kunstjes te la- 
ten vertonen op een 
hobby-tentoonstelling die hier 
binnenkort zal gehouden 
worden. 

Daar ik hierop ben ingegaan, 
heb ik reeds een programma 
met allerlei grafische voorstel- 
lingen ineen geknutseld, doch 
ik heb echter een klein pro- 
bleempje. |k weet namelijk nog 
niet hoe ik de RUN/STOP- 
toeis moet uitzetten in 
128-mode. U begrijpt dat dit 
noodzakelijk is om het pro- 
gramma te beschermen tegen 
‘jeukende vingers’. 

Kunt u mij alstublieft zo spoe- 
dig mogelijk laten weten hoe ik 
dit kan doen. Ik verondersiel 
dat een enkele POKE wel zal 
volstaan. 

P.S. Uw tijdschrift is werkelijk 
fantastisch en zijn geld dubbel 
en dwars waard. Doe zo voort. 
Luc Pycke te St. Laureins (Belgie) 


Het aanbod van handige 
peek’s en poke’s voor de 
C-128 is nog niet overweldi- 
gend, doch we hebben er toch 
vast een paar verzameld. 
Hieronder treft u er een aantal 
aan: : 


poke 241,x :cursor kleur 
poke 235,x :regelnummer 
cursor 

poke 2594,0 :toetsen niet re- 


peteren 

poke 2594, 128 :toetsen wel re- 
peteren 

poke 24,37 :geen regeinum- 
mer bij listen 

print peek(215) :welke toets 
wordt gebruikt 

print peek(4616) :laatst opge- 
treden foutmelding 

poke 774,61:poke 775,255 
igeeft reset na list 

poke 774,61:poke 775,160 
geet na list alleen regel- 
nummers 

poke 792,51:poke 793,255 
restore toets uitgeschakeld 
sys 57344 :reset 

sys 52524 :omschakelen 40-80 
kolommen 

sys 51994 :cursor 40 kolom- 
men niet knipperen 

sys 52014 :cursor 80 kolom- 
men wel knipperen 

sys 57831 :g064 

SYS 16384 ‘reset met behoud 
van schermkleur 


SAMENVOEGEN 

Kunt u mij misschien vertellen 
hoe ik een Basic-programma 
en een machinetaal- 
programma samen kan voegen 
tot €én programma? Dan wel 
zo dat uiteraard uit het Basic- 
programma door middel van 
het ‘sys’ getal het 
machinetaal-programma kan 
oproepen. En hoe gaat dit als 
een machinetaal-programma 
een ‘out of data error’ geeft? 
Ik hoop dat u mij op deze vra- 
gen antwoord kunt en wilt 
geven. 

G.de Bruin te Beetgumermolen. 


Om een machinetaal- 
programma aan een Basic- 
programma te koppelen, dient 
u het allereerst in uw basis- 
programma bij te laden en wel 
aan het begin bijv. door: 

10 X=X+1/F X=1 THEN LO- 
AD’ programmanaam ’’,8,1 

20 vervolg van uw programma. 
De variabele X is nodig om te 
voorkomen, dat de machine 
maar door blijft laden, omdat 
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na het laden altijd wordt terug- 
gesprongen naar regel 10. 

Op de plaats waar u de routi- 
ne nodig heeft, kunt u hem 
dan oproepen met SYS Xxxxxx, 
athankelijk van de plaats in 
het geheugen waar de routine 
Siaat. 

Een ‘out of data error’ kan in 
machinetaal niet voorkomen, 
omdat daarin nooit dataregels 
worden gelezen. 


HEXDUMP 

Een tijdje geleden probeerde 
ik het programma van de extra 
basic-commando’s, maar toen 
ik door middel van het ”'m’’- 
commando, de hexdump op 
het scherm had kon ik het niet 
aanpassen mei de cursor- 
besturing. Weet u hoe dit komt 
en hoe het te verbeteren valt? 
Verder heb ik de volgende 2 
vragen: 

1. Hoe krijg ik een 
meerkleuren-hirescreen? 

2. Bestaat er een soort groter- 
dan commando in machi- 
netaal? 

JGildemacher te Drachten 


Het aanpassen van een hex- 
dump met het M-commando 
en daarna de cursorbesturing, 
werkt inderdaad niet. 

Nadat u met het M-commando 
de hexdump op het scherm 
heeft gekregen, dient u de te 
wijzigen regel(s) met het A- 
commando aan te passen. Dus 
bijv.: 

A 0820 # aa bb cc dd ee etc. 
Er bestaat geen groter-dan 
commando in machinetaal. 
Wel is er een aantal 
vergelijkingsinstrukties. 

Schaf u zelf een goed machi- 
netaalboek aan. Dat is erg 
handig als u in machinetaal 
wilt gaan programmeren. 


POKE EN PEEK 

Ondanks dat ik al 8 maanden 
beschik over een C-128, weet 
ik nog steeds niet of er al een 
boek op de markt is, waarin al- 
le Poke- en Peekinstrukties _ 
voor mijn computer staan op- 
gesomd, vergezeld met hun 
werking. Kunt u mij (een) ti- 
tel(s) van boeken geven die 
deze informatie bevatten? 
D.Bogaerts te Berchem-Antwerpen 


(Belgie) > 














BRIEVEN 


De enige door u bedoelde lec- 
tuur, die wij tot op heden heb- 
ben kunnen ontdekken, is het 
boek: ‘Peeks en pokes voor de 
C-128' van DATA BECKER. 
Met enig speurwerk zult u het 
in een goede boekhandel of 
computershop wel vinden. 


C128 MINIATUURTJE 

; 

FAST:FORX = 0TO88:POKE48 
64 + X, PEEK(64128 + X):NEXTX 
2 
POKE831,19:POKE830,0:POKE 
4946,44:SLOW 


DOCUMENT 


Een veel voorkomend euvel in 
de huidige programmeerstijl is 
de gebrekkige documentatie. 
Het zal je zelf ook wel eens 
overkomen zijn dat je een half 
afgemaakt programma een 
tijdje laat liggen om vervolgens 
niet meer te weten hoe en wat 
er waar gebeurt. Veel pro- 
-grammeurs nemen de moeite 
niet om met REM instrukties 
de programma’s van commen- 
taar te voorzien. Andere slo- 
pen deze commentaren er la- 
ter weer uit om het programma 
sneller te doen lopen. Neem 
de gulden middenweg, voorzie 
je programma’s zo overvioedig 
mogelijk van commentaar en 
voeg daar nog eens een lijst 
aan toe waarin staat welke va- 
riabelen voor welk doel worden 
gebruikt. Is het programma ge- 
reed, dan bewaar je deze ver- 
sie als documentatie-file. Maak 
hiervan nog een tweede versie 
waar alle commentaar en de 
variabelenlijst uitgesloopt is. 
Deze versie save je als werkfi- 
le. Een bijkomend voordeel is 
dat je direct over een backup 
beschikt. Wil je later een pro- 
gramma wijzigen, dan pak je 
de documentatie-file en kun je 
zonder hoofdbrekens aan de 
slag. 


C-64 POKES 


POKE 788,52(49) : RUN STOP 
uil(aan)zetten. 


Dit miniatuurtje voor de C-128 
verandert de punt op het num- 
merieke toetsenbord in een 
komma. Dat is in vele gevallen 
makkelijker. Bijvoorbeeld bij 
het invoeren van data’s of bij 
poke’s. Ik hoop dat u dit in uw 
blad plaatst, want ik denk dat 
u daar veel CBM-128 bezitters 
een plezier mee doet. 

D.K.Hen te Arnhem 


CONCAT 

In de Programmer's Reference 
van de CBM-128 staat dat met 
het commando Concat ook 


POKE 204,0 : Cursor knippe- 
ren aan. 

POKE 207,0 : Cursor knippe- 
ren uit. 

POKE 792,193(71) : RESTORE 
uit(aan)zetten. 

POKE 788,52(49) : STOP 
uit(aan)zetten. 

POKE 808,225(237): STOP- 
RESTORE-LIST uit(aan)zetten. 
POKE 650,0(128) : REPEAT 
uit(aan)zetten. 

POKE 775,200(167): LIST 
uit(aan)zetten. 


KATTE- 
KWAAD 


Verwerk het volgende in een 

kopie van je programma dat j 
cadeau geeft aan een vriend. 
POKE 768,255 : PRINT PEEK 
(768). Hij zal verbluft zijn. 


C-64 
VECTOREN 
VERLEGGEN 


Verleg de vectoren! Bij elke in- 
struktie (bijvoorbeeld list, load, 
save, e.d.) kijkt de computer 
op een bepaalde geheugen- 
plaats waar hij naar toe moet. 
Verander je deze adressen, 
dan gebeuren er vreemde din- 
gen. Bijvoorbeeld: POKE 
816,226 : POKE 817,252. Na 


een LOAD opdracht zal er wor- 


den gereset. Binnen een pro- 
gramma zijn ook met hetzelfde 
effect de volgende geheugen- 
plaatsen te POKEN: 

- 768 en 769 reset na een fout 


programma’s gemerged kun- 
nen worden. Als ik dit toepas, 
krijg ik de melding ‘File Type 
Mismatch’. In de Neder- 
landstalige handleiding staat 
alleen iets over het mergen 
van bestanden. Mijn vraag is 
of dit al dan niet mogelijk is en 
zo ja op welke manier dan? 
Bijgaand heb ik nog een un- 
new routine voor de C-128. 
Na een new of reset tik je het 
volgende in: 
poke7170,1:sysdec(’’4003’’) 
[return] 

Hierna een getal intikken dat 


in het programma of bij het 
einde van een programma; 
770 en 771 reset na het in- 
drukken van run/stop. 

Andere gevolgen op dezelfde 
of andere adressen zijn ze ook 
te bedenken. 


Cc-128 
GEHEUGEN- 
PLAATSEN 


Voor vele is het nog een heel 
gezoek om de juiste geheu- 
genplaatsen voor dit soort pro- 
gramma’s te vinden. Hierbij de 
meest gebruikte adressen voor 
de 128: 

$0b00-$0bff (cassette buffer) 
$0c00-$0dif (RS-232 input/out- 
put buffer)$1300-$1 bff (gebied 
voor ROM -cartridges 


voor de 64: 


$c000-$efff (vrij bereik) 
$033c-$03fb (cassette buffer + 
sprites 13, 14 of 15) 
$02c0-$02ff (sprite 11) 


de tussenhaakjes vermelde 
tekst laat je weten wanneer je 
bepaalde gebieden kunt ge- 
bruiken. Gebruik de cassette 
buffer alleen voor machinetaal 
als je zeker weet dat deze niet 
door een laad/save instruktie 
wordt gebruikt. Er is nog een 
mogelijkheid voor het plaatsen 
van machinetaalprogramma’s. 
Deze geldt zowel voor de 64 
als de 128. Je kunt namelijk 
de beschikbare ruimte voor 
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groter is dan het hoogste re- 
gelnummer en dan return. 
Daarna is listen weer mogelijk. 
S.P. Springint Veld te Aalsmeer 


Voor zover ons bekend kunt u 
met het CONCAT-statement al- 
leen DATA-files aan elkaar 
koppelen en geen programma- 
files. Het statement werkt het- 
zelfde als APPEND. Mochten 
wij er achter komen hoe pro- 
gramma’s aan elkaar te koppe- 
len zijn, dan zullen wij het u 
zeker laten weten. 


een Basic programma kleiner 
maken. Een voorbeeld voor de 
64, waarbij ongeveer 2 kb 
wordt vrijgemaakt: 

-10h = int(38960/256):1 = 38960 
0-h* 256:poke55, 1:poke 
56,h:clr. 

Het einde van het Basic- 
programma wordt zo van 
40960 naar 38960 verplaatst. 
Voor de 128 geldi het zelfde 
programma, alleen met andere 
waarden. Een stuk van ca.5kb 
vrij maken gaat zo: 

-10h = int(60000/256): 1 = 60000- 
h*256:poke55, 1:poke5é , hiclr. 
Bij beide voorbeelden is uitge- 
gaan van de standaardwaar- 
den. Wil je weten wat het 
hoogste Basic-adres is, dan 
gebruik je de volgende 
formule: 


printpeek(55) + 256* peek(56) 


Deze formule geldt zowel voor 
de 64 als voor de 128. 


128 
GRAFISCH 


Wil je op een eenvoudige doch 
doeltreffende manier de grafi- 
sche mogelijkheden van de 
128 bekijken of laten zien, ge- 
bruik dan dit korte programma: 


10 GRAPHICO,0 : INPUT Getal 
1, Getal 2’;A,C : GRAPHIC1,1 
20 FOR B = 200 to 0 STEP-3 
- CIRCLE, 160,100,B,B,0,0,C,A 
30 NEXT : GETKEYK$ : GO- 
TO 10 











sone ee er CONSTRUCTIE ya 


UPDATES EN 
CHATMODE 


De vierde aflevering alweer van onze Bulletin Board Constructie set. Naast een nieu- 
we module geeft Jan van Die een overzicht van de meest voorkomende vragen en 
antwoorden over de Constructie set. 


STORYTEL, het BBS waarop 
onze constructieset proef- 
draait, mag zich over een bij- 
zonder grote belangstelling 
verheugen. Veel reakties gaan 
over de programma’s uit COM- 
MODORE DOSSIER 6 en 7 of 
het AKTIEF van juni, waardoor 
het prikbord van hoge kwaliteit 
is. Geen geleuter, maar men- 
sen die op een positieve ma- 
nier met hun hobby bezig zijn. 
Sysop Jan van Die geeft een 
overzicht van de belangrijkste 
vragen en antwoorden, waarin 
u vast en zeker iets van uw 
gading zult tegenkomen. 

Op veler verzoek voegen we 
nu ook een chatmode aan ons 
bulletin board toe. 

Via deze nieuwe module kun- 
nen de gebruikers van het 
BBS de sysop oproepen. 

Als deze aanwezig is, kan hij 
via het toetsenbord 
rechtstreeks met de gebruiker 
communiceren. 


HOGERE 
SNELHEID 


Veel mensen zouden het BBS 
graag sneller zien. In CD 8 ko- 
men dan ook (eindelijk)de ma- 
chinetaalroutines om tekst- 
bestanden van schijf te lezen. 
Eventueel kan dat met een 
snelheid van 1200 baud, dus 
dat zal wel hard genoeg gaan. 
Ook nu kunt u uw programma 


al sneller maken. U moet daar- 


voor een compiler gebruiken. 

Zo’n compiler vertaalt het Ba- 
sic naar machinecode, waar- 

door alle opdrachten net even 
sneller uitgevoerd worden. 


Helaas blijkt een aantal beken- 


de compilers het af te laten 
weten als het op telecommuni- 
catie aankomt. PETSPEED 
krijgt bijvoorbeeld problemen 
zodra er verwijzingen naar de 
userpoort in het programma 
voorkomen. 


Met de ASTRO-COMPILER 
zijn geen problemen bekend. 
Het BBS wordt door de omzet- 
ting in machinecode ongeveer 
40% sneller. 


LINEFEED- 
PROBLEMEN 


Naast Commodore bezitters, 
zullen ook eigenaren van an- 
dere computers kontakt met 
uw BBS zoeken. Hierbij kan 
het probleem ontstaan dat de 
tekst steeds op dezelfde regel 
van het beeldscherm afgedrukt 
wordt. De Commodores geven 
met CHR$(13) namelijk zowel 
RETURN (naar begin van de 
regel) als een LINEFEED (re- 
gelopvoer). Andere computers 
hebben voor een linefeed nog 
eens extra CHR$(10) nodig. 
Nu hoeft dit alles geen pro- 
bleem te zijn. Een beetje com- 
municatieprogramma biedt de 
mogelijkheid om de computer 
zelf linefeeds te laten genere- 
ren. Voor de pechvogels die 
en niet in het bezit zijn van 
een Commodore en niet van 
zo’n communicatieprogramma, 
stel ik de volgende update 
voor: 


In regel 130: R$ =CHR$(13) 
moet worden 

R$ = CHR$(13) + CHR$(10) 
In regel 2400: Na GOSUB 
2120 tussenvoegen: 
Z=10:GOSUB 2120 


ANDERE 
MODEMS 


Vanaf CD 8 is een Teltron mo- 
dem een vereiste. Alleen met 
dat modem kan software ge- 
download worden. De huidige 
versie blijkt in ieder geval ook 
te werken met het VICCOM 
COMPACT MODEM in samen- 
werking met de auto-answer 
kaart. 


(Met dank aan dhr. Meyboom, 
Zw.Vlaanderen). 


Vic-20 en 
CONSTRUC- 
TIESET 


Voor zover ik begrepen 

heb, werkt het BBS perfect 
met een VIC, mits voorzien 
van een flinke geheugenuit- 
breiding. 

Module 140 moet uit het pro- 
gramma gesloopt worden. Om- 
dat andere routines van modu- 
le 140 gebruik maken, kunt u 
het best de volgende regel 
opnemen: 

1920 RETURN 


De VIC zal helaas geen 
gebruik van de machinetaal- 
routines uit CD 8 kunnen ma- 
ken. Uiteraard kan een handi- 
ge programmeur de routines 
aanpassen, maar deze zaak 
wordt bemoeilijkt doordat 

er wat fouten in het ROM van 
de VIC zitten. Om die fouten 
heen programmeren, zal voor 
aardig wat hoofdbrekers 
zorgen. 


Gi2zs en 
CONSTRUC- 
TiIESET 


Voor zover bekend zijn er drie 
aanpassingen nodig om het 
BBS in C128 mode te laten 
werken: 

1) de schermadressen van de 
Cé4 veranderen in die voor de 
C128 

2) voor alle pokes telkens 
BANK 15 opnemen: 
BANK15:POKE(WAARDE) 

3) Het OPEN-commando 

in regel 30 vervangen 

door: 

OPEN 1,2,0,CHR$(6 +32) + CH- 
RG(32 + 128) 

(Met dank aan Peter 

Cremer). 
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DELETE 


Als een gebruiker op de 
delete-toets drukt, wordt 

het laatste teken in de 
computer zelf gewist. Op het 
scherm blijft de tikfout echter 
staan. Daar zat een gedachte 
achter: bij het wissen wordt 
de tekstruimte op het gra- 
fische scherm licht bescha- 
digd. Veel mensen vonden dat 
minder bezwaarlijk. Het BBS 
staat tenslotte meestal in 
PEEKMODE. 

Vandaar de volgende update: 
2395 IFSYANDZ = 20THENZ = 
8 

2410 IF(Z = 8)AND(LEN(O$)) 
THENO$ = LEFT$(0$,LEN(O$)- 
1):Z = 20:GOT02460 

2540 PRINTCHR$(Z);:X =X +1: 
IFZ = 20THENX = X-2 
Eveniueel kunt u de zijkanten 
van de teksiruimte verwijde- 
ren, zodat de rechterrand bij 
delete niet naar binnen kan 
worden getrokken. 


KLEUREN 
POKEN 


Oude C64’s hebben extra po- 
ke’s nodig om de kleur van ka- 
rakters op het beeldscherm in 
te stellen. U hebt met dit pro- 
bleem te maken als Uw C-64 
niet met grote letters COMMO- 
DORE DOSSIER op het 
scherm print nadat u het BBS 
gesiart hebt. 

De volgende regel verhelpt de 
kwaal: 

1135 FOR 

| =0T0999:POKE55296 + 1,15: 
NEXT 

Ik raad u aan om deze regel 
alleen op te nemen als u een 
oude C64 heeft. Het poken 
duurt namelijk een EEUW! 


HOOFD- 
LETTERS 


Het BBS werkte tot dusver al- 
leen maar met kleine letters 
(peekmode) of alleen maar met 
hoofdletters (grafisch scherm). 
Omdat de gebruiker vrijwel al- 
leen maar paginanummers 
hoeft in te tikken, was dit geen 
echt bezwaar. Sinds het AK- 
TIEF van juni, waarin een mo- 
dule stond om berichten voor 
de sysop achter te laten, is 











de situatie veranderd. 

De volgende update brengt 
beide lettertypes binnen uw 
bereik: 

2390 

Z=ASC(A$ + CHRS$(0))AND12 
7:21 = Z:IFZ =0THEN2340 
2425 
IFZ>64ANDZ < 96THENZ =Z 
+ 128:GOTO2440 

2450 

O$ = O$ + CHR$(Z):22 =Z:Z = 
Z1:GOSUB2120:Z = Z2 

Denkt u erom dat hoofdletters 
er op het grafische scherm uit 
zullen zien als grafische 
tekens?! 


CHATMODE 








GEBRUIKSAANWILJZING VOOR PROGRAMMEURS 


Nadat de module allereerst het 
verzoek om de sysop te spre- 
ken bevestigd heeft, zorgen de 
regels 4425 tot en met 4445 
voor een alarmsignaal van 
twintig sekonden op de gast- 
computer. 

Als de sysop binnen die tijd op 
F8 drukt, voert regel 4440 
naar de afdeling toetsenbord- 
communicatie. In het andere 
geval wordt pagina 80 aanbe- 
volen om een bericht in het 
BBS achiter te laten, waarop 
de module terugspringt naar 
het hoofdprogramma. 

Bij communicatie via het toet- 


senbord moeten de binnenko- 
mende letters vertaalt worden 
in Commodore-ASCll. Dat ge- 
beurt in de regels 4475-4505. 
Regel 4510 kijkt of de sysop 
wil praten en geeft hem desge- 
wenst voorrang. 

De tekst van de gebruiker 
wordt door regel 4515 zowel 
op het scherm van de sysop, 
als op het scherm van de ge- 
bruiker afgedrukt. Regel 4540 
doet hetzelfde met de tekst 
van de sysop. 

De gebruiker kan alleen iets 
intikken nadat de sysop op 
RETURN gedrukt heeft. Regel 


4545 veroorzaakt deze ’discri- 
minatie’. 

In het laatste gedeelte van het 
programma vindt u ook twee- 


maal de opdracht POKE 212,0. 


Deze poke voorkomt dat de 
computer van het BBS in de 
war raakt nadat het een aan- 
halingsteken heeft binnenge- 
kregen. 

De overige regels zijn bestemd 
om de module aan het hoofd- 
programma te koppelen en de 
gebruiker van het systeem wat 
uitleg te geven. 


_DEELIV 





De nieuwe module in dit num- 
mer van AKTIEF geeft de ge- 
bruiker de mogelijkheid om u 
lastig te vallen. Nadat hij *81 
heeft getikt, roept uw C-64 u 
via een tweetonig signaal naar 
de monitor. Wanneer u niet 
thuis bent (of doet alsof u niet 
thuis bent) krijgt de gebruiker 
hiervan na twintig seconden 
bericht. 

Als u tijdens het alarmsignaal 
op F8 drukt bevestigt u uw 
aanwezigheid. 

De module is zo geprogram- 
meerd dat uw teksten altijd 
voorrang hebben. 

De gebruiker kan pas na een 
RETURN iets terug zeggen. 
Dit voorkomt chaos op het 
scherm. Aan het eind van het 
gesprek drukt u weer op F8 
om de gebruiker in het board 
terug te brengen. Uiteraard 
kunt u ook het initiatief nemen: 
de module maakt het u ook 
mogelijk om de gebruiker in 
chatmode te brengen zonder 
dat hij daarom verzocht heeft. 
Ook hier zorgi functietoets F8 
voor de sprong naar de su- 
broutine. F8 werkt alleen als 
de computer zich in het hoofd- 
programma bevindt. U zult dus 
even moeten wachten tot de 
gebruiker zijn pagina uit heeft. 


HANDLEIDING BIJ HET INTIKKEN 


routines willen nog wel eens 
de oude regel bewaren en de 
nieuwe weggooien... 

Geef uw vingers na het intik- 
ken van deze module maar 
wat rust. Volgende maand krij- 
gen ze het bijzonder druk als 
we de diskversie van het BBS 
publiceren. 


De listing bevat niet alleen de 
nieuwe module, maar ook alle 
updates. Hiermee is gepro- 
beerd de kans op fouten te mi- 
nimaliseren. Let er op dat er 
een aantal regels in de listing 
voorkomen die oude regels 
met datzelfde nummer VER- 
VANGEN. U kunt het beste 
eerst versie drie inladen en 
dan gaan tikken. MERGE- 


De updates en de nieuwe mo- 
dule gaan er vanuit dat u een 
originele versie van het BBS 
bezit. Eigen veranderingen 
kunnen roet in het eten 
gooien. 

Het laatste versienummer tot 
dusver was drie. Samen met 
deze uitbreiding kunt u de 
constructieset derhalve als 
BBS IV bewaren. 


130 r$=chr$(10)+chr$(13):c$=chr$ (147) :rv$=chr$(i8): 
up$=chr$(145):k1$=chr$(14)<sh/sp>ad 

1135 rem alleen voor oude ¢64’s: for1=0t0999:poke55296+i,15:next<sh/spa7 
2390 2=asc(attchr$(0))and127:zl=z: |fz=Othen2340<sh/sp>a0 

2395 ifsyandz=20thenz=8<sh/sp>el 

2400 ifz=13thenprint::y=y+1:gosub2120:2=10:gosub2120:return<sh/sp)79 
2410 1£(z=8)and(len(o$) )thenos$=left$(oF%,len(o$)-1):gosub2120:z2=20: 
goto2460<sh/sp?28 

2425 1lfz>64andz< 96thenz=2+128:90to2440<sh/sp>6e 

2450 o$=o$tchr$(z):22=2:2=21:gosub2120:z=z2<sh/sp>10 

2540 printchr$(z);:x=x+1:ifz=20thenx=x-2<sh/sp>1f 

4400 rem xxx module 255 xxx<sh/sp>86 

4410 rem chat-mode<sh/sp?94 

4420 z$=rS+tr$+"Als de sysop er is, reageert hij binnen 20 
seconden.":gosub2220<sh/sp>df 

4425 d=0:s=54272:pokes+5,9:pokes+6,0:pokes+24, 15<sh/sp)03 

4430 pokes+4,33:pokes,75:pokes+1,34:fori=1to500:next:pokes+4,32<sh/sp)a2 
4435 pokest+4,33:pokes,75:pokes+1,20: forl=1to500:next:pokes+4, 32<sh/sp>ba 
A440 geta#:ifat=chr$(140)thenpokes+24,0:goto4465<sh/sp)>7b 

4445 ifd<l6thend=d+1:goto4430<sh/sp)09 

4450 pokes+24,0:z%=ré+"De sysop is momenteel niet aanwezig.":gosub2220<sh/sp)09 
4455 zs=r$+"U kunt via x80 een boodschap achterlaten”:gosub2220<sh/sp)24 
4460 return<sh/sp)£3 

4465 sp=1:printc$rv$k1%$"Chat-mode"<sh/sp)>97 

4470 z$=r$t+r$+"De sysop is nu on-line.“:gosub2220<sh/sp>d4 

4475 get#2,o0%<sh/sp>9d 

4480 z=asc(ostchr$# (0) and127:z1=z<sh/sp>ab 

4485 ifz=8thenz=20:goto4510<sh/sp>31 

4490 ifz=13then4510<sh/sp>5da 

4495 1f£2¢32thenz=0:g0t04510<sh/sp)31 

4500 i1fz>64andz<(96thenz=z+128:goto4510<sh/sp)99 

4505 ifz>95andz<123thenz=2-32<sh/sp>2d 

4510 geta$:ifasthen4540<sh/sp>3d 

4515 Ilfzthenprintchr#(z)s:z=al:gosub2120<sh/sp>?£5 

4520 ifz=34thenpeke212,0<sh/sp>co0 

4525 ifz=13thenz=10:gosub2120<¢sh/sp>25 

4530 goto4475<sh/sp>28 

4535 ifats=chr$(140)thenz$=r$+"U bent weer terug in het 

board. “:gosub2220:return<sh/sp)09 





COMMODORE DOSSIER AKTIEF G6 





BULLETIN BOARD CONSTRUCTIE SET 





bya 


4540 z=z%Casc(as)):gosub2120:printas: :lfz=34thenpoke212,0<sh/sp?91 
4545 ifz=13thenz=10:gosub2120: fori=0to99:get#2,0%:next:gotod475<sh/sp>59 
4550 getas:ifas=""then4550<sh/sp>d6 

4555 gotod535<sh/sp>54 

10308 ifpn=8ithengosub4420: pn=O0<sh/sp>cc 

10315 ifpeek(197)=3andpeek(653)-=1thengosub4465: pn=0<sh/sp>c5 

20030 p%(8)=1:p%20)=1:p%(80)=1:p%(81)=1:p%(90)=1<sh/sp?b5 

21070 z2$C(16)=" versie 4.0°<sh/spre2 

30160 pa=8:pv=O0:pm=1<sh/sp>24 

30161 z$C€1)="BERICHT VOOR SYSOP ACHTERLATEN*<sh/sp2az2 

BCtG2 2502 0= ------- ee “<sh/sp?58 

30163 z$(4)="0. BERICHT IN HET BOARD"<sh/sp>86 

$0164 z$¢(5)="1. SYSOP ON-LINE"<sh/spda2 

30165 z#(6)="Bij mogelljkheid O (rechtstreeks «80)"<sh/sp>88 

30166 z$(7)>="kunt u een bericht van 8 regels met"<sh/sp>i2 

30167 z$(8)="elk 37 karakters in het board achter-"<sh/sp>73 

30168 z$(9)="laten. Als u minder ruimte nodig heeft”<sh/sp>b4 
30169 2#C10)="beeindigt u uw invoer op sen nieuwe"<sh/sp>31 


30170 2#(ild="*regel met het woord STOP."<sh/sp>49 

3QO171 2%(12)="Bij mogelijkheld 1 (rechtstreek x81)"<sh/sp e0 
30172 26C13)="komt dé sysop, indien aanwezig,*<sh/sp) 35 
30173 2#Cid)="online, "<ah/ap>4i 

30174 z#C(16)=" <druk op RETURN voor het menu>”<sh/sp>10 
30175 goto20570<sh/sp>13 


FC DE NAZORG 


ECONOMIE-SIMULATOR in Commodore Dossier num- _ listing ontbrak. We schamen 


mer 7 is een aantal fouten ons diep. Om het weer goed 
"000000": goto760<sh/sp)6d geslopen. De meest in het 00g te maken drukken we bij deze 
c5 * p/w + c6<sh/sp>7b springende was wel het feit de hele listing nogmaals af. 
1d<sh/sp>cb dat er van de economie- Deze keer wel volledig. Onze 


te a eee simulator een deel van de verontschuldigingen voor het 
150 (lefla) x te - 6 x (1e6 x kk)T(1 - 1la)<sh/sp>de8 ongemak. 
160 y x c4 * p / mm<sh/sp288 
170 = le - 6 x (c7 x le x w + lu * wud<sh/sp>6b C-128 
= = / oe 
180 y Cg /p +t cl 7 1D Cs * (1 t) + t)<sh/sp>6f CHECKSUM 


190 return<sh/sp>?30 
200 wu = wu + du<sh/sp>cl In het laatste nummer van 


210 w = w + dw<sh/sp)d9 Commodore Dossier stond een 


een me mF Gacen/ ep cd checksum voor de C-128 aan- 

230 pp p<sh/sp>04 : 

240 kk = kk + ii / p - .22 x kk<sh/sp>3c : gekondigd. U vond de check- 

250 11 11 + .015 * 11<sh/sp>54 sum echter niet terug in het 

a. tm oo : Be ec iG : oon Cees blad. De reden is dat we op 
p = 0. pp: gosu : nl = nO: pl = p<sh/sp 

280 p = 10 * pp: gosub 110: nu = nO: pu = p<sh/spdel het laatste moment hebben 

290 if nl * nu ¢ 0 then goto 330<sh/sp)80 besloten de checksum nog 

300 print “geen oplossing gevonden binnen”<sh/sp)db niet te plaatsen omdat de ma- 

ee Bone oe coe * pps +10 * pes” 2 <sh/sprcc ker van de checksum nog eni- 
stop<sh/s ee : 

$30 5 = 5 & ol + ud <ch/spiac ge modificaties wilde aanbren- 

340 gosub 110<sh/sp>e8 gen. 

350 if nO x nl > O then nl = nO: pl = p: goto 370<sh/spdaf 

360 nu = nO: pu = p<sh/sp)63 

370 if pu = pl > 0.01 then goto 330<sh/sp)fa 

380 p = .5 * (pl + pud<sh/sp)9a 

390 gosub 110<sh/sp>3a 

400 rem evenwichts variabelen<sh/sp2?193 

410 il = p x« cl / i<sh/sp)43 540 t = .2<sh/spde4 

420 yy y x p<sh/sp>b2 550 la = 0.0405<sh/sp)>84 

430 tt t * yy<sh/sp)e5 560 s = .15<sh/sp?f9 

440 ££ = ff + tt - gg - gO * p<sh/sp>2a 970 pp = 1<sh/sp>bb 

450 ss = s * (1 - t) * yy<sh/spded 580 p = .915<sh/sp>b7 

460 cc = yy - ss - tt<sh/sp>7f£ 590 w = 30000<sh/sp)9a 

470 return<sh/sp)59 600 15000<sh/sp>de 

480 rem initlalisatie<sh/3sp?33 610 5000000<sh/spre7 

490 cl 5200<sh/sp>2c 620 O<sh/spdec 

500 cd = 0.0355555<sh/sp>18 630 400000<sh/sp)c2 

510 ¢5 570e8<sh/sp>74 640 30000<sh/sp>74 

$20 ¢c6 3053917<sh/sp>f7 650 82000<sh/sp>00 

530 c7 -2<sh/sprca 660 dw 1500<sh/sp>33 


100 


110 
120 


tein Wt 


tou ut Wt 


tut wow tt 


nbn in uu 


Hon Ww not 
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670 du 900<sh/sp>06 

680 dm 4000<sh/sp>15 

690 vo$="anp nieuws... “<sh/sp?5d 

700 col$=chr$(18)+chr$(5) :no$=chr$(146)+chr$(159)<sh/sp>f7 
710 for x = 1 to 22 : te$=te$t+chr$(17): next : 
ds=chrs(19)+tes:meS=left$(d$,10)<sh/sp>f9 

720 wise" “<sh/sp>5a 
730 gosub 200<sh/sp>67 

740 tm = 1975<sh/sp>47 

750 return<sh/sp?62 

760 rem economie model<sh/sp>33 

770 printchr$(147)chr$(5)3<sh/spdad 

780 print” UDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDI “<sh/sp>aa 
790 print” T commodore dossier H*<sh/sp>ba 
800 print” T H"<sh/sp>86 
810 print® T economie simulator H*<sh/sp>e3_ 
820 print” T Cc) 1986 H"<sh/sp>f6 
830 print® T H"<sh/sp)>98 
840 print” T door paul molenaar H"<sh/spde7 
850 print® JFFFFFFFFFFFFFFFFFFFFFFFFFFPFPFFFFFFFK*<sh/sp>e9 
860 printchr$(17)chr$(17)chr#¢(17)° een ogenblik graag..."<sh/sp>3b 
870 gosub 480: rem initialisatie<sh/sp>3c 

880 gosub 910: rem in= en output<sh/sp)>4d 

890 gosub 200: rem tijdstap<sh/sp>76 

900 goto 880<sh/sp>3e 

910 rem menu tijdstap in- en output<sh/sp>2a 

920 print chr$(147):printno$;<sh/sp)4b 

930 print °* overzicht “chr$(5);tm<sh/sp>ab 

$40 print no$<sh/sp)13 

950 print macro-economische grootheden"<sh/sp>1id 

960 print overheid em arbeidsmarkt"<sh/sp>68 

970 print mutatles beleid”sta+1<sh/sp)f2 

980 print overzicht “s;tmat+i<sh/spdac 

990 print Stoppen"<sh/sp>3f 

1000 printchr$(19)chr$(17)chr$ (17) 
chr#(17)chr$(17)chr#(17)chr8(17)chr$(17)chr$(17)<sh/sp>be 
1010 print”maak een keuze: “;:input ki<sh/sp>80 

1020 if kl 1 or KI > 5 then goto 1000<sh/sp)ed 

1030 if ki 1 then gosub 1190<sh/sp>53 

1040 {if ki 2 then gosub 1400<sh/sp)>4a 

1050 {f ki 3 then gosub 1580<sh/sp)>48 

1060 if ki =4 then return<sh/sp>7e 

1070 if k1i<>5then920<sh/sp)70 

1080 print:print"weet u het zeker (j/"chr#(18)"n“chr$(146)") “3<sh/sp>cl 
1090 get a#: if a#="" then 1090<sh/sp)4b 

1100 if a¢="4° then 1120<sh/sp>fb 

1110 goto 920<sh/sp>e0 

1120 printchr$(147)"bedankt voor het gebruiken van de”:print<sh/sp)92 
1130 printchr$(5)*° economie simulator’<sh/sp>6b 

1140 printno$:print*°gedurende: °;<sh/sp>05 

1150 printlefts(tis,2);"°:"3<sh/sp)37 

1160 printmid$(tis,2,2)3":"3<sh/sp>dd 

1170 printright#(tis,2);° Cuu:mm:ss)"<sh/sp>fa 

1180 end<sh/sp)18 

1190 rem macro-economisch overzicht<sh/sp>04 

1200 print chr$(147)<sh/sp)da9 


1210 goto 1220<sh/sp>36 
1220 print chr$(i8)" overzicht macro-economie “ta* “chr$(146)<sh/sp)ce 
1230 print<sh/sp)>53 

1240 print “nationaal inkomen 
1250 print “consumptie 

1260 print “besparingen 


: int Cyy)s" (mln) "<sh/sp>9Ff 
1270 print “investeringen : 


int €ccd;" (mln)°<sh/sp>3e 
int (ss);° (mln)”"<sh/sp>cd 
int C1Li)3" (Cmln)"<sh/sp>44 
int (tt)s" (mln)*°<sh/sp>3a 
int¢gO x p);"° (mln)d"<sh/sp)dd 


1280 print “belastingen 

1290 print “vaste overheidskosten 
1300 print<sh/sp>88 

1310 print“geld hoeveelheid int (mm)s° (mln)"<sh/sp>30 

1320 print “kapitaalgoederen : int (kk x p):° (mln)"<sh/sp>96 

1330 print “ingezette arbeid int €led:" (prs)"<sh/sp)dif 

1340 print<sh/sp>a0 

1350 print “rente kapitaalmarkt int (100 x 133" %"<sh/sp>27 

1360 print “Iinflatie Int (100 * (p-pp) / pp); %*<sh/sp>b9 
1370 print “prijs index ("stm;°"=19; int (100 * p) / 100<sh/sp>9a 

1380 get a# : if at = “* then 1380<sh/sp>6e 

1390 return<sh/spde5 

1400 rem overzicht overheid en arbeidsmarkt<sh/sp>be 

1410 print chr#(147)<sh/spdea 

1420 printchr#¢18)° overheld en arbeidsmarkt “3; int (tm); * 
“chr8(146)<sh/sp)89 

1430 print<sh/sp)0a 

1440 print “overheids-financien : “3 Int (££) * (mln)*°<sh/sp)e3 

1450 print “overheids-inkomsten : "3 int (tts * Cmln)°<sh/spde4 


se ase se 
ws we we be we Be 
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1460 print “overheids-ultgaven s °3 int (gg)s * (mln)"<sh/sp>8b 
1470 print"vaste overheids-kosten: “3 int (gO * p)s ° (min)"<sh/sp>e4 
1480 print “belasting quote : “> imt (100 * t);" %*"*<sh/sp>21 
1490 print"“geld hoeveelheid : "5 int (mm) “ (mlnd"<sh/sp>7c 
i500 print<sh/sp>40 

1510 print “arbeids-aanbod : “5s Imt (11)3 * (prs)"<sh/sp>44 
1520 print “Ingezette arbeid : “s Int (leds ° (prs)"<sh/sp)dd 
1530 print “werkloosheid s "3s int (11 - le)ds° (prs)*<sh/sp)0e 
1540 print “loongemiddelde : "+ Int (ws ° (C£1/jr>"<sh/sp>f2 
1550 print “uitkerings-gemiddelde : "+ int (wud; ° (f1/jr)*<sh/sp>25 
1560 get aS : if a%® = °° then 1560<sh/sp>19 

1570 return<sh/spdaa 

1580 rem mutaties beleid<sh/sp>a0 

1590 print chr$(147)<sh/sp)>5d 

1600 printchrs(19)<sh/sp>11 

1610 print chrs$(18)° beleids-mutaties “s;tmi° “chr%$(146)<sh/sp)ad 
1620 print<sh/sp)cb 

1630 print °1- geld hoeveelheid “sdm>" (mln) °<sh/sp>c8 

1640 print “2= loongeriddelde “sawi" Cfl/jrd"<sh/spdeb 

1650 print °3- uitkeringen “sdu;s” (f1/jr>°<sh/sp>81 

1660 print °“4- belasting-quote “st<sh/sp>8f 

1670 print °5=- terug naar hoofdaenu"<sh/sp)35 

1680 print lefts(d$,9)<sh/sp>b3 

1690 print “maak een keuze: *;<sh/sp>28 

1700 input k2<sh/sp>5e 

1710 tf k2 <1 or k2 > S-then goto 1680<sh/sp>b4 

1720 on kZ goto 1920, 1990, 1730, 1830, 2090<sh/sp)do 

1730 rem mutatie uitkeringen<sh/sp)41 

1740 print mes’:printwi$:printme$<sh/sp>69 

1750 print“mutatie uitkerings-gemiddelde: °;:input du<sh/sp)97 

1760 lf wu + du > O then goto 1790<sh/sp>74 


1770 a$="wao’ers, bijstandsmoeders en werklozen bestormen 
binnenhof” :gosub2110<sh/sp>e9 

1780 goto 1730<sh/sp>7e 

1790 1f du < = .30 * wu then goto 1590<sh/sp)c3 

1800 a%="ultkeringen fors omhoog: heel werkend nederland neent ontslag"<sh/sp)>% 
1810 gosub2110<sh/sp)9a 

1820 goto 1730<sh/sp)97 

1830 rem aanpassen belasting quote<sh/spded 

1840 printmes:printwi$:printme$<sh/sp)94 

1850 print “belasting quote: “s:input t<sh/sp>59 

1860 if t> 0 then goto 1890<sh/sp)33 

1870 a%="oppositie vraagt: waar betaalt regering dit van?":gosub 2110<sh/sp>32 
1880 goto 1830<sh/sp>dc 

1890 if t< .9 then goto 1590<sh/sp>3da 

1900 a$="massanoord op be last ing-inspecteurs® :gosub2110<sh/sp)27 
1910 goto 1830<sh/sp>f2 

1920 rem mutatie geld-hoeveelheid<sh/sp>22 

1930 printme$:printwi% :printme$<sh/sp>Ze 

1940 print “mutatie geldhoeveelheid: °3: input dm<sh/sp>ba 

1950 if mm + dm > O then goto 1590<sh/sp)13 

1960 a%=“landelijk protest tegen invoering ruilhandel":gosub 2110<sh/sp)cc 
1970 dm = O<sh/sp>3e : 

1980 goto 1920<sh/sp>38 

1990 rem mutatie Loongemiddelde<sh/sp)17 

2000 printme$:printwis :printme$<sh/sp)74 

2010 print"mutatie loongemiddelde: “3: input dw<sh/sp>)bo 

2020 if dw > -.10 x w then goto 2050<sh/sp>9c 

2030 aS= “m.e. paraat nu stakingen en oproer @re igen.” :gosub2110<sh/spdaft 
2040 goto 1990<sh/sp)77 

2050 if dw < = .25 x w then goto 1590<sh/sp>62 

2060 a€="werkgevers bekritiseren beleid: ’wie is die sinterklaas? wij 
niet!’"<sh/spde2 

2070 gosub 2110<sh/sp)91 

2080 goto 1990<sh/sp>a0 

2090 rem terug naar overzicht<sh/sp)a2 

2100 return<sh/sp>b2 

2110 rem newsflash routine<sh/sp>b8 

2120 tes=vos+as<sh/sp>35 

2130 gosub2140:printnos$:return<sh/sp>e2 

2140 pr#=""<sh/sp>cO 

2150 for x = 1 to len (te%)<sh/sp)67 

2160 getas: if aS<>°°thenreturn<sh/sp) 43 

2170 prs=left#(te$,x):gosub2190: next x(sh/sp)33 

2180 return<sh/sp>02 

2190 le=len(pr$)<sh/sp)d9 

2200 sp#40-le:if sp < 0 then sp = O<sh/sp)>90 

2210 prs=left%(wis#,sp)+prs<sh/sp)>6e 

2220 if lenC€prs) > 40 then prs=right#(prs,40)<sh/sp>8b 

2230 printcol#;d$ipr%;<sh/sp>3e 

2240 return<sh/sp> 46 

ready. 
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GETALLEN EN MACHINETAAL 


In deze vijfde aflevering behandelen we een ay onder- 


werp: het afdrukken van decimale getallen. Dit on 


hoort tot de verzameling problemen die door een grote groep 
machinetaalprogrammeurs als ‘ingewikkeld’ wordt beschouwd. 
Roelf Sluman helpt u een flink eind op weg. 


In Basic is het allemaal zo 
makkelijk: een getal krijgen we 
op het scherm door er een 
PRINT-commando voor te zet- 
ten, eenvoudiger kan het niet. 
In de machinetaalprogramma’s 
moeten we hiervoor echter on- 
ze eigen sub-routine ontwer- 
pen. De reden hiervoor kun- 
nen we met een eenvoudig 
voorbeeld verklaren: 


In Basic wordt het getal 65 op 
het scherm gezet door het 
commando: 


PRINT 65 


Als je niet verder doordenkt, 
zou je dat vertalen in on- 
derstaande machinetaal- 
instructies: 


LDA#65 
JSRSFFD2 


De snelle jongens hebben de 
valkuil echter al in de gaten: 
hier wordt niet het getal 65, 
maar de ASCll-code 65 op het 
scherm gezet! (in bovenstaand 
voorbeeld is dat de letter A) 
Het bovenstaande voorbeeld 
leert ons dat we er dus een 
nieuw probleem bij hebben: 
we moeten een routine schrij- 
ven die een getal dusdanig 
‘voorbewerkt’ dat het geschikt 
is om op het beeldscherm ge- 
zet te worden. 


Om dit probleem op te lossen, 
moeten we een aantal zaken 
op een rijtje zetten. Allereerst 
kijken we naar de maximale 
inhoud van een geheugen- 
plaats. Hiertoe beperken we 
ons voorlopig. De freaks kun- 


nen later hun eigen aanpassin- 


gen schrijven. 
KERN 


Zoals iedere machinetaalpro- 
grammeur weet, bedraagt de 


maximale inhoud van een ge- 
heugenplaats 255. Met andere 
woorden: we hebben met drie 
cijfers te maken: een honderd- 
tal, een tiental en een eental. 
Deze drie cijfers moeten we in 
de juiste volgorde op het 
beeldscherm zien te krijgen. 
Dat is de kern van ons 
probleem. 

Een snelle blik op de ASCII- 


fabel van de Commodore ho- 


mecomputers leert ons dat de 
cijfers hun eigen ASCIl-codes 
hebben. 

Onderstaand overzicht toont 
een en ander: 


cijfer ASCII ASCII (hex) 


Co ~1 GP GT & COND 43 © 


erwerp be- 


De rechterkolom, met de hexa- 
decimale ASCll-waarde, heb- 
ben we er niet voor niets bijge- 
zet. U ziet waarschijnlijk de 
overeenkomst tussen de eigen- 
lijke waarde en zijn ASCII- 
equivalent: door het linker nib- 
ble de waarde 3 te geven, 
maakt u van een decimale 
waarde die kleiner is dan 10 
een ASCll-waarde en dus een 
afdrukbaar teken! 


Een voorbeeld om dit toe te 
lichten: 


In het A-register bevindt zich 
het getal 5. Dit getal willen we 
op het scherm afdrukken. We 
hebben net al gezien dat het 
zonder meer aanroepen van 
$FFD2 niet werkt: de computer 
drukt dan de ASCll-code 5 af 
(de tekstkleur wordt wit). In 
plaats daarvan moeten we het 
linker nibble de waarde 3 ge- 
ven, zodat we de ASCll-code 
voor het getal 5 in A hebben 
staan. Onderstaande program- 
maregels doen dit: 

(a bevat de af te drukken deci- 


De gestructureerde subroutine: 





male waarde, maximaal 9) 


ORA#$30 ; HET LINKER NIB- 
BLE KRIJGT NU DE WAAR- 
DE 3 

JSR $FFD2 ; HET CIJFER 
WORDT NU OP HET BEELD- 
SCHERM AFGEDRUKT 


We zijn er echter nog niet, 
want het bovenstaande werkt 
alleen van getallen van 0 tot 
en mei 9. We moeten dus nog 
een paar extra stappen onder- 
nemen, die er voor moeten 
zorgen dat we eerst het hon- 
derdtail, dan het tiental en uit- 
eindelijk het restant op het 
scherm kunnen afdrukken. 

De hamvraag is nu natuurlijk: 
hoe krijgen we het honderatal? 
Het antwoord is niet zo moei- 
lijk: deel het af te drukken ge- 
tal (let op: niet het CIJFER, 
maar het GETAL!) door hon- 
derd. Het resuitaat is het hon- 
derdia!, dat we vervolgens 
(door het linker nibble op 3 te 
zetten) kunnen afdrukken. 
Vervolgens berekenen we het 
tiental. Dit doen we op bijna 


L ANILNOU 


sEEN GETAL DECIMAAL OF HET SCHERM AFDRUEEENS: 
sHET GETAL BEVINDT ZICH IN A 








;DIT 1S DE “METTE* 


DECOUT 
HFDLUS 
LUS 


LDY #2 
LDX #8 
CMF 
BCC 
SBC 
INX 
BNE 








LUS 
DRURAF FHA 
TXA 
ORA 
JSR 
FLA. 
DEY 
BEL 
RTS 


HEED 


TABEL 


#FFD2 


HFDLUS 


ROUTINE: 34 BYTES 


y INDEXREGISTER: 
; QUOTIENT 





TABEL,Y ;DEELBAAR? 
DRUKAF ;NEE 
TABEL ,Y 


sNEE 





3A 


-BYTE 1,10,100 
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WIJST NU 


NAAR HONDERDTAL 











dezelfde manier: we delen het 
overblijvende getal (dus nadat 
het honderdtal er is afgehaald; 
dit getal is dus altijd kleiner 
dan 100!) door tien. Als resul- 
taat krijgen we het tiental, dat 
we ook weer afdrukken. 


Het restant vormt het eental. 
Hoe we dit op het scherm zet- 
ten, is nu geen geheim meer. 


AFTREKKING 


We zijn nu viakbij een routine 
om een en ander in de praktijk 
te brengen. Er is echter nog 
een klein probleem: de 
6500-processoren kennen 
geen deelinstructie. Nu kun- 
nen we natuurlijk een uitge- 
breide (en dus: een veel ruim- 
te in beslag nemende) deelrou- 
tine gaan schrijven, maar het 
is veel eenvoudiger om van 
een simpele aftrekking gebruik 
te maken: eerst het honderdtal 
zo vaak als mogelijk is aftrek- 
ken, daarna het resultaat op 
het scherm zetten, vervolgens 
het tiental zo vaak als mogelijk 
aftrekken, daarna het resultaat 
op het scherm en tot slot het 
restant afdrukken. 


Op deze pagina’s vindt u twee 
routines, die allebei hetzelfde 
doen. De eerste routine is veel 
langer, en niet gestructureerd 
opgezet. We plaatsen hem 
echter toch omdat hij een zeer 
duidelijk inzicht geeft in de 
manier waarop we te werk 
gaan. De tweede routine 
maakt onder andere gebruik 
van indexering en een tabel. 
Deze routine is dan ook veel 
korter, maar moeilijker te door- 
gronden. 

De besparing van maar liefst 
20 bytes in de tweede routine 
is mogelijk door gebruik van 
de tabel met daarin drie bytes. 
U ziet dat deze routine wel 
iets meer tijd in beslag neemt 
dan de eerste, omdat er hier 
ook van het aftrektal 1 gebruik 
wordt gemaakt. In de praktijk 
blijkt echter dat deze extra tijd 
te verwaarlozen is. 

Een tweede ‘sluipweggetje’ is 
het gebruik van de CMP- 
instructie. Zo op het eerste ge- 
zicht lijkt deze instructie hier 
niet helemaal op z’n plaats, 
omdat daarna toch nog een af- 


;EEN GETAL 





fHET GETAL 


DIT IS DE 


DECOUT STA 
LDX 
SEC 
LDA 
SEC 
BCC 
STA 
INX 
BNE 


#FB 
#2 
LUS@1 
$F 
#100 


FR 


UITOL TXA 
ORA 


JSR 


HEED 


LDX 
SEC 
LDA 
SEC 
BCC 
STA 
INX 
BNE 


#@ 
LUS@2 
#FB 
#1@ 


=FRB 


UIT@Z TXA 
ORA 


JSF 


#ETO 


;NU NOG HET RESTANT (HET RECHTSE CIJFER) 


3 


LDA 
ORA 
JSR 


#FE 
#50 


RTS 


trekopdracht wordt gegeven. 
Het CMP-commando bespaart 
echter nogal wat bytes: ten 
eerste hoeft de inhoud van A 
niet steeds in een geheugen- 
plaats te worden opgeborgen 
vlak voor en viak na de eigen- 
like aftrekking, ten tweede 
hoeft de carry-viag niet worden 
gezet. Dit wordt namelijk door 
de CMP-instructie gedaan: als 
de inhoud van A kleiner is dan 
het deeltal wordt de carry niet 
gezet. Het programma komt 
dan niet door de BCC-val 
heen. Is de inhoud van A ech- 
ter groter dan of gelijk aan het 
deeltal dan wordt het carry-bit 
we'1 gezet, zodat er ten eerste 
door de BCC-val wordt 
gesprongen, en ten tweede 
een instructie (SEC) kan wor- 
den overgeslagen! 


DECIMAAL OF HET SCHERM AFDRUEEEN 


BEVINDT ZICH IN & 


‘SLORDIGE’ 


UIT@1L 


LUS@1L 


#PFD2 


UITaS 


LUS@2 





@ ANNOY 


ROUTINE: 





5Q 


BYTES 


;QORSPRONEELIJKE GETAL EVEN BEWAREN 
sHIERIN EOMT HET RESULTAAT VAN DE DELING! 


;HONDERD VAN GETAL AFTREKKEN 
;RESULTAAT ELEINER DAN 1@@? DAN FRINTEN 


;QUOTIENT VERHOGEN 
FALTIUD 


sQUOTIENT FPRINTEN 
;VERANDEREN IN ASCII 
;0F HET SCHERM 
QUOTIENT WEER OF NUL 


;TIENTAL BEREKENEN 
pRESULTAAT ELEINER DAN i@?7 DAN FRINTEN 


;ALTIID 


$FFD2 





AFDRUEEEN 


#F FD 


7 ELAAR 


In dit artikel hebben we het 
werken met kleine decimale 
getallen, in het bereik van 0 
tot en met 255, willen verkla- 
ren. De liefhebbers onder u 
kunnen nu aan de slag 
voor wat betreft het 
werken met twee 

byte getallen, met 


We komen hier nog op terug; 
bovendien zullen we dan eens 
kijken naar het omzetten van 
een waarde in een hexadeci- 
maal getal; een probleem apart. 


ASL 
15 ROL $ 
018 CLC 








een maximum- /.\8019 LDA § 
waarde van AD 
65535. 
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band dat is bedoe 


SCN 
COMMODORE 
HOTNEWS 


De Stichting Computerhobbyisten Nederland, beter bekend als SCN Hot-News en Com- 
modore Dossier a een samenwerkingverband aangegaan. Een samenwerkingsver- 


id om zowel de SCN-leden, als de abonnees van van Commodore 


Dossier nog beter te kunnen informeren over hun computer, de Commodore. In het 
kort komt het er op neer dat de abonnees van Commodore Dossier nu kunnen mee- 
profiteren van de vele faciliteiten, zoals het pale bezoeken van de ae bij- 


eenkomsten en dergelijken, die SCN haar le 


en biedt. Het spreekt voor zich 


at de 


SCN-faciliteiten ALLEEN beschikbaar zijn voor ABONNEES van Commodore Dossier. 


WAT DOET 
SCN 


SCN geeft elke maand een 
clubblad uit, boordevol listings, 
tips en nuttige informatie be- 
treffende de C-16, plus 4, 
C-64, de C-128 en de Amiga.: 
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HOT-NEWS 
SCHIJF 1 


@ adressenbestand 
antilist 

auto number 
autokosten 
Cassette bestand 
cross-reference 
database cass 
dir+database 
directory sort 
disk catalog 
disk etiket 

disk hulp 
domino 

dr. video 
flightsim vic 
getal omzetten 
huisinventaris 
interface 
joystick test 
list-stop 

monitor $c000 
monitor 64 
rekenmach. 2 
rekenmachine 
tape library gen 
tekstverw/oki 
tekstverwerker 
toolkit 64 

toolkit sys49152 


@ 20 keer kip 
ascii tabel 
autodial 
autostart 

basic tabel 
bliksem teller 
boodschappenlijs 
bowling 
cass.index 
compactor 
directory 

disk repair 
funktiekey 64 
hardcopy 
highlighter 
inhoud hotnews 
interface 
jaarkalender 
kalender 
karakters 
karakters 2 
kijk 1/2 k 

kijk 1/8 
lichtkrant 
maandkalender 
nieuwjaar 
poke-peek(a) 
poke-peek(h) 
print hex-dec 
printer datamake 
printer generato 
printer veorbeel 
quick-64 
rekenmachine 
sorteren 
tekstverwerker 
tekstverwerker g 
toolkit 64 
transfer 

uni lister 


Vervolg schijf 1 
unnew 64 
videobanden 
vidiprint 
woordbreker 
woordbreker 1 


“HOT-NEWS 
‘SCHIJF 3 


SCN organiseert elke maand 
bijeenkomsten waar 
Commodore- 
enthousiastelingen elkaar ont- 
moeten. 


-Bijeenkomst: de grootste bij- 
eenkomst wordt elke tweede 
zaterdag van de maand in de 


| HOT-NEWS 
| SCHUF 4 


@ bibliotheek 
bibliotheekO1 
bibliotheekO2 
bibliotheekO3 
bibliotheekO4 
bioritme 
bioritme 2 
datum paasdag 
demo logo 
diskinputfile 
einde bib 
finance 

finance 2 
fotografie 

gener bib 

instr bib 
kaartbestand 
kalender 

lees bib 

linker 

micro pims 
minigraph demo 
minigraph loader 
omvormer 
pokenvolgenscrsr 
print bib 
rename 1541 
s.c.n. bestand 
S.C.n. merge 
samen bib 
sammon64.3 
sort bib 

sort dir 
sortwork 1 
Start bib 
verander disknr. 
verander start 
vieuw bam extra 
weerstanden 


@ adressen vic 
audio bestand 
checksum sen 
coc.chr 
coc.int 
cocktail mixer 
denktijd 
etiketten 

file pi/b 
honderd kwis 
humbug ned 
instructies 
lesrooster 
platenbestand 
printen 

raad een dier 
reaktie deel 1 
reaktie deel 2 
sbe-adres 
sbe-nota 
spritecontral 
start 
temp.meten (sb) 


Meervaart te Amsterdam- 
Osdorp gehouden. 

Tussen 10.00 en 16.00 uur 
bent u van harte welkom. 
Tijdens die bijeenkomsten wor- 
den de volgende activiteiten 


georganiseerd: 


-De informatiestand: voor aller- 


“HOT-NEWS 
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@ aantal berichten 
aantal mes 
ascii file 

bbs sen 

berek. regatta 
bericht lezen 
blokletters. 
centronics 
cursieve.letters 
einde regatta 
hoge+norm.kar... 
invoer regatta 
linker 

password niet | 
print4 regatta 
regatta berek. 
regatta instr. 
regatta invoer 
regatta print 
regatta print? 
regatta print2 
regatta print3 
regatta print4 
regatta result 
rel bericht make 
rel maken 
result regatta 
s.c.n. bestand 
s.c.n. library 
S.C.n. mergen 
Start regatta 
telefoonkosten.. 
teletekstietters 
trio 
verkoopsimulatie 
videotitels. 
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@ 0 blocks free 
c64 autostart 
c64 diskpatch 
change unit 
ciaklok 
datamaker.c64 
de 100-kwis twee 
de honderd-kwis 
dir loader 

dir print 

dir squeeze 
disk-dump 
diskindex 
display bam 
drivetest 
energie 

format disk 
girorek. c-128 
header change 
key define 
kwis-1 top-10 
kwis-2 hi-score 
load address 
matrix produkt 
morse oefenen 
num bord c128 
print.64.util 
printer test 
sd.backup.c64 
sd.copy.c64 
seq lister 
spandoeken 
test 1541 
uni-copy 
unscratch 


lei vragen op computergebied, 
programma’s uit onze softwa- 
rebibliotheek, vragen en 
programmeer-problemen, men 
zet uw programma’s gratis in 
eprom, we hebben een eigen 
goed en goedkoop merk schij- 
ven voor u. 


-Reparatiestand: voor het aan- 
brengen van bijvoorbeeld een 
resetschakelaar, kleine wijzi- 
gingen/reparaties aan de appa- 
ratuur, stellen van koppen van 
de cassetterecorder/diskdrive, 
inbouwen van nieuwe kernal’s 
en karakterrom’s enzovoort. 
-Handelaren: tegen hobbyprij- 
zen bieden zij u de nieuwste 
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@ airplane 
autokosten 
check-log 
clock-works (c) 
deur dicht 
finance 
homefinace 
hyporente 
kassa c-64 ig 
kruiden boksbal 
kruidenbase cl 
kruidenprint charset 
kruidensort datamanagerc128 
mah-jongg punt f1 

prg a 

prg b 
schaatsen 
schaatsenstart 
termostaatklok 
voet-tocht 


100-kwis-1 cass. 
100-kwis-2 cass. 


filereader 
gr.pl. tutor 
grafiek plotter 
karakterzoeker 
karakterzoeker 
opperviakten 
rekenen 

rocky iv 

rule of game 
slee 

sort 

stoten 

test 

test blok 
testbeeld c128 
top 5. 
vakantie 
verzameling1 
verzameling6 





artikelen op computergebied. 
(uitbreidingen die vaak niet in 
de winkel te koop zijn). 


-Hobbyisten: zij demonstreren 
zelfgemaakte hard- en 
software-uitbreidingen. 


-Softwarebibliotheek: de club 
beschikt over een bibliotheek 
met programma’s op allerlei 
gebied. deze bibliotheek groeit 
nog elke week. 


-Cursussen: elke maand wor- 

den in Amsterdam een cursus 
Basic, een cursus machinetaal 
en een cursus flight-simulator 
gegeven. 


-Viewdatabank: u kunt een toe- 
gangsnummer krijgen voor on- 
ze eigen ’’viditel’’ systeem. In 
dit systeem vindt u een grote 
sortering telesoftware die u 
gratis ter beschikking staat. 24 
uur per dag. 


@ autokosten 
basic extender 
boekencatalogus 
clear 
com-grafix 
com-grafix-hoed 
cursor 

leren optelien 
leren rekenen 
mac-64 
mac-start 
merge 

mozaik 
omt./opp./inh. 
pe/cale (c) 
posttarieven 
rekenen 
screendump 
solo mission 
sorteren 

sprite editor 


@ 1986 

apic ¢ mensprt3 
bob’s lettersets 
centronicdriver 
goto a 

goto demo 
h/a.m.-modulatie 
h/cos7x/sin8x | 
h/cos7x/sin8x n 
harte(n)dief 
harten jagen 
klok 

koala loader 
ledenadministr 
loader rad v a 
m/a.m.-modulatie 
master mind 

mt saver 
numkeypad c64 
orgeltje 

part-1 

preludium 


serieelbus test 
set-1 

set-2 

set-3 

setrad 

sidmon sen 
spiegelbeeld 
spriteklok 
typecursus 
typeplotter 
userpoort scan 
yesterday 


@ telesoftware schijf 


gebr.aanw.scn 

vid. rad-modem 

vid. teletron mo 
vid.diverse mod1 
vid.diverse mod2 
com. doss download 


Ook de programma’s die wij 
als listing afdrukken, kunt u 
hier downloaden. 


VOOR MEER 
INFORMATIE: 


Alleen op dinsdag- en woens- 
dagavond tussen 18.00 en 
22.00 uur: 020-104483. 


PROEF- 
NUMMER 
HOT-NEWS 


Een proefnummer van ons 
blad kunt u bestellen door 

f. 4,- op girorekening 5441050 
ten name van SCN te Amster- 
dam over te maken. 


PROGRAMMA 
BIBLIOTHEEK 
SCN 


De navolgende programma’s 
zijn op schijf te verkrijgen. de 


ABONNEMENT/ 
LIDMAATSCHAP 


Een abonnement bedraagt 
slechts f. 40,- per jaar. Dit 
abonnement kan elke eerste 
dag van de maand ingaan. 


Naast gratis toegang tot de ge- 


bruikersdagen en de facilitei- 
ten, ontvangt u ons blad elke 


programma’s die op de schij- 
ven 1 tot en met 4 staan, zijn 
ook op cassette te verkrijgen. 
De programma’s die niet met 
een cassetterecorder werken 
zijn weggelaten. 


BESTELLEN: 
Dit kan op 3 manieren: 


1.Tijdens de bijeenkomsten 
door betaling van f. 10,00. 


2.Maak f. 10,00 + per bestel- 
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@ calculator 
datazoeker 

disk etiketten 
energiebewust 
globaal-1 
globaal-2 
kleureffect 
listing 1 

listing 2 

listing 3 

listing 4 
materiaal ber. 
me-hulp 

printer 
revolverh/c000 
tekstverwerker 
uitleg globaal 
woordeffect 
zwitsers systeem 
[zwitsers systee 


| HOT-NEWS 
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@ documentatie 
gas-elektra 
lotto/128 

mijn stad 
mini-kit 
navigatie 
run.simple term 
sb/rapport 
sb/rooster 
simple term 64 
tester.mem 
trans-lister 
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@ 64 fast pokes.c 
atoomgewicht 128 
basic comm. 64 
cursorkleur 
definition.c 
fin.analyse 
formateer 64 
game-killer 
high-res/mps-802 
instrukties 
invoerprg 
joystick doodle 
kleurenkaart 64 
lifescore 

list freezer.c 
memorizer-128 
menu 

milage 

monitor 50000 
munchmath.c 
random lotto.c 
raster interupt 
rename4 

sin disk copy 
term.64.d 
terminal 64 
testbeeld 64 
textmaster.c 


| tm-instruct 1.4 


tm-instruct 2.d 
tm-instruct 3.d 
turbo menu maker 
viper.c 
viza-Yeascii 

wet paint.c 

word worker.c 


| HOT-NEWs 
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@ -prive 

-Zaak 

adres 64 
agenda 64 
echte new 64 
floppybestand 64 
inf tydschrifté4 
info 

karakters 64 
kernreactor1 64 
kernreactor2 64 
list-stop 64 
monitor 50000 
peek mon 64 
rename 64 
scratch 64 
simons demo 64sb 
spred.bas 
tekstel 64 


@ pc/base (c) 


| CASSETTE 
C16en4 


@ bliksemteller 
boodschappeniijst 
kalender 1 
tekstverwerker 
videotitels 
rekenmachine 
adressenbestand 
autokosten 
cassettebestand 
getal omzetten 
huisinventaris 
bioritme 

datum paasdag 
finance 1 en 2 
fotografie 1 en 2 
kaartbestand 1/2 
kalender 2 
omvormer 

view bam extra 
weerstanden 


HOT-NEWS 


SCHUF 17 


@ eva 
eva.2 


maand aan huis. 


Lid worden doet u door fl. 40,- 
(12 maanden) over te maken 
op postgiro 5441050 ten name 
van SCN Commodore Hot- 
News te Amsterdam. 


ling f. 2,50 porto / verpak- 
kingskosten over op postgiro 
5441050 t.n.v. SCN te amster- 
dam. onder vermelding: ’’schijf 
(nummer) of cassette (num- 
mer)” en uw abonnee- 
nummer. 


3.Via Viditel, kies pagina 
6247102. In ons bestand vindt 
u alle SCN schijven terug. De 
prijs is een stuk hoger, maar 
dat komt omdat zowel de PTT 
als de IL eraan moeten ver- 
dienen. 


TOEGANG 
BIJEENKOMST 


Abonnees die de bijeenkom- 
sten in Amsterdam willen be- 
zoeken moeten de wikkel 
waarin ze Commodore Dossier 
ontvingen meenemen. De wik- 
kel dient als toegangsbewijs. 








Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg 


a regels van 24 


van onduidelijke op 
aans 


ave. Een advertentie mag ten 
agen lang zijn. 


Opsturen aan: Commodore Dossier, 
ta.v. mevr. C. de Haan, 
Rijnsburgstraat 11, 
1059 A 


Ik bied aan hardware 

@ Audio Sonic (camping) z/w TV (loopt 
op 12, 6 V) en 12” green mon. (220V). 
In een koop f 1350. Andre vd Weijden, 
Aquamarijnpad 38, 3402 GK Wsselstein 
Utr. 

© CBS Colecovision spel-computer + 8 
spell. Prijs: f 225,-. Tevens CBM-64 
softw. te ruil. Tel. 01793-2103. 

@ Voor VIC-20 40/80-tekenkrt. en expan- 
sieslot voor 2 krt. Heeft eigen videoge- 
heugen. Prijs: | 125,-.R.P.L. Oranje, W 
Beckmanstr. 378, 3762 HL Soest. Tel. 
02155-20246. 

@ CBM-64 met: 1530, 1541, MPS-803, 
Teletron modem, final cartr., lichtpen, 3 
joyst., 20 cass., 80 floppys, veel softw., 
boeken en tijdschr. Alles in een koop. 
Tel. 01158-1315. 

@ 2x81 + 16K + trafo + 2 cass. + 3 
boeken. Weinig gebr. en in doos. Prijs: 

f 99,-. Tevens handl. TRS-80 (eng.). 
Prijs: f 10,-. Marnix. Tel. (na 16 uur) 
070-240793. 

@ KCS speedioader voor disk met vele 
funkties, incl. ned. handl. Prijs: f 50,-. 
Berthold van Dommelen, Hoge Kamp 27, 
7963 AW Ruinen. Tel. 05221-1394. 

@ Amstrad/Schneider CPC 464 met div. 
softw. w.o. Pascal, tekstverw. en spellen. 
Prijs: n.o.t-k. Tel (na 18 uur) 
010-4760003 of 4767207. 

@ Graf. Rom MPS-803. Werkt geweldig. 
Prijs: | 40,-; KCS disktocl. Prijs: 40,-; 
CBM-64 met 1541 speeddos printer 130 
disks met progr. en boeken. Prijs: 

f 1500. W. Vermeulen, Overijssellaan 99, 
2101 TC Heemstede. 

@ Brother HR 10C Margrietwielprinter 
voor Commodore, 2 printwielen. Prijs: 
no.t.k. Te. (na 17 uur) 05181-1435. 

@ Seikosha GP100VE (3 mnd. oud). 


Prijs: f 175,-. M.J.M. Hesseling, Houtsnip- 


laan 34, Doorwerth. Tel. (na 19 uur) 
085-340395. 

@ Speedioader en saver: vele extra com- 
mando’s en voorgeprogr. functietoetsen 
voor disk en tape. samen F 80,-. Ook los 
f 45,-. D.Snijders. Tel. (na 20 uur) 
020-431040. 

@ VIC-20 + datarec. + 5 spelcartr. + 
softw. Prijs: f 200,-; KCS combi speedioa- 
der. Prijs: f 50,-. Tel. 033-633567. 

@ TJeletron modem PTT gek. + pr. Auto 
Dial/Ans (2 mnd. oud). Prijs: f 525,-; 


Slim line tel. Prijs: f 20,-; MB comp. gest. 


truck + kipaanh. Prijs: f 200,-. Alles in 
een koop. Prijs: f 725,-. Erik. Tel. 
08355-1727. 


DOSSIER COMMODORE AKTIEF 


Amsterdam 


@ ViC-1011a: RS232c interf. voor de 
CBM-64. Prijs: f 50,- of ruilen tegen goed 
turbo progr. op cartr. T.A. Albada Jel- 
gersma, Reidfjild 37, 9255 JS Tietjerk. 
@ CBM-64 + 1541 drive + datarec. + 
MPS-803 + KCS powercartr. + 2 joyst. 
+ boeken + softw. (incl. handl.). Prijs: 
f 2100. Tel. 02155-15041. 

@ Matrix printer voor CBM-64 (type Sei- 
kosha GP100VC. Prijs: f 200,- of ruilen 
tegen een goede mon. (liefst amber) en 
geschikt voor de CBM-64. J.Hoekmeijer, 
Torp 65, 1785 RS Den Helder. Tel. 
02230-36951. 

@ CBM-64 + 1541 diskdr. + datarec. 
+ joyst. + powercart + veel boeken + 
tijdschr. + softw. Prijs: f 1100. Tel. (na 
18 uur) 01608-32285. 

@ Commodore 128 + drive 1570. Tel. 
(na 17 uur) 030-444947. 

@ Een 1541 drive voor CBM-64. Prijs: 

f 200,-. Tel. (na 18 uur) 01724-6232. 
@ Citizen 2 Ki. printer voor de 
CBM-64/128. Vraagprijs: f 130,- (nieuw) 
omscakelen 40/80 kar. CBM-128. Prijs: 
f 75,- (video out) voor digitaliseren foto's 
etc. Tel. 02245-811. 

@ CBM-64 + datarec. + Brother HRS + 
interf. + joyst. + 66 cm kl. TV VizaWri- 
te + Simons Basic + veel meer softw. 
Vraagprijs: f 2000. Evt. Olivetti 40 DW 
CBM-64 + interface. Prijs: f 1000. K. 
Stroes, E Wolffstr. 77-1, 1053 TT 
Amsterdam. 

@ Eprombank (v SePr.) incl. snell. v. 
disk ook t.k. of te ruil progr. op disk en 
gevr. progr. voor beurs (aandelen e.d.}. 
Marcel. Tel. 01880-39224. 

@ TRS-80 model Il + div. softw. Tel. 
(na 18 uur) 02984-3633. 

@ Tekstverw. WORDSTAR 3.0 (Ouitse 
versie) voor CBM-128 met handl. Prijs: 
Hfl. 220,-. Karel Assmann, Hindedree? 35, 
B-2080 Kapellen (Belgie). Tel. 
03-6645290. 


Ik bied aan software 

@ 30 orig. spellen voor CBM-64 (0.4. 
View to a Kill, Beach Head | en Il). In een 
koop. Prijs: n.o.t.k. Tel. 010-4622897. 


Ik zoek hardware 

@ Wie helpt mij aan een CP/M module? 
T.Storm, Kioveniersburgwal 19-E, 1011 
JT Amsterdam. 

@ MPS-803 + diskdr. 1541. Tevens 
spellen te koop of te ruil 0.a. Uridium, 
Bomb-Jack, Golf, V. Prijs tussen de 7 5,- 


en f 15,-. Tel. 02297-1853. 

@ CBM-64 + cass. + evt. joyst. Prijs: 
f 250,-. Ale Kuiperstr. 23, 8121 
AK Olst. Tel. (na 18 uur) 05708-2391. 
@ CBM 1541 diskdrive. Tevens te koop 
Steen der Wijzen. Hans Lesscher, Born- 
sestr. 58, 7597 NG Saasveld. Tel. 
05404-329. 

@ 1541 diskdrive. M.P.Parqui te 
Voorburg.Tel. 070-867587. 

@ Een printer voor Commodore. Tevens 
verk. of ruil ik goedk. softw. Olaf Corne- 
lis, 0.L.Vrouwweg 1, B-1860 Meise (Bel- 
gie). Tel. 02-2692570. 

@ Ik wil telex signalen decoderen met 
mijn CBM-64. Wie kan mij aan hard- en 
software (informatie) helpen? C.van Leeu- 
wen, Honingzwam 78, 2403 HR Alphen 
ad Ryn. Tel. 01720-43152. 

@ Gekleurde kettingform. op A4 formaat 
en een beschrijving van The Newsroom. 
J.R. Hornes, Vreelust 18, 2804 LH Gou- 
da. Tel. (na 18 uur) 32888. 

@ MPS-801 + descender-Rom. Prijs: 

f 80,-; normale letter-Rom en veel softw. 
Vraagprijs: f 325,-. Ronald Sloot, 
dasmijnstr. 23, 4741 CC Hoeven. Tel. 
01659-3686. 

®@ 2Z.9.a.n. groene Philips monitor met ka- 
belaansl. voor de CBM-64. Vraagprijs: 

f 200,-. Tel. 010-4600225. 


Ik wil ruilen 

@ Gebruikersprogr. voor de CBM-128 
(CP/M, CBM-128 of 64 mode). Philippe 
van Honacker, Mechelsebaan 30, B-1860 
Meise (Belgie). Tel. 02-2693278. 

@ CBM-64 softw. op disk of cass. T. van 
Moerzeke, Buntstr. 1, B-9160 Hamme 
(Belgie). 

© Spellen voor CBM-16 bijv. Airwolf, 
Xargon. J. Bonnemayers, Goudplevier 22, 
5271 LE Sint Michielsgestel. Tel. 
04105-3350. 

@ Spellen over het Teletron modem en 
wie weet er telefoonnummers van Data- 
banken. Hans. Tel. (na 18 uur) 
03402-64267. 

@ 1570 drive (3 mnd. oud + gar.) rui- 
len voor 803 printer voor de CBM-128. 
Tevens gevr. copieerprogr. voor de 

1571 drive. B.Rateau, Franssensingel 65, 
6211 AB Maastricht. 

@ Wie wil softw. ruilen. Zoek kontakt 
met persoon in de omgev. Hoorn NH. Al- 
les is welkom. Bezit veel spellen en ik 
zoek naar Top Duitsland. Tel. 
02290-39599. 

@ Tekstverw. (cartr.) in ruil voor Simons- 
Basic-cartr. + handl. J.Boesten te Bruns- 
sum. Tel. 045-255851. 

@ Ik zoek geluidstechn. soft-/hardware. 
Evt. ruilen tegen zelfontwikkeld comp. 
gestuurd looplicht. M.Commandeur, Kui- 
kensweg 70, 1944 EM Beverwijk. Tel. 
(na 18 uur) 02510-44323, 


Ik zoek software 

@ Ik zoek: Fight Night, Gi joe en Bruno 
Boxing op tape. Ruilmateriaal: Beachhead 
2, Alien, Way of the tiger. Gerard Veer- 
man, H.Rolstr. 8, Volendam. Tel. 
02993-63057. 

© Goede gebr.softw. en spelletjes voor 
de CBM-128. Hans De Ridder, Wiesbeek 
12, B-9360 Buggenhout (Belgie). Tel. 
052-359513. 
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@ Handl. van Word Pro +3 en Word 
Craft (liefst in het ned.). Evt. ki. verg. 
P.Reijnen, Way Broek 2, 6041 PJ Roer- 
mond. Tel. (na 16 uur) 04750-32745. 
@ Het complete astrologie-progr. op cass. 
voor de CBM-64. W.Claeys, Apollo XI 
Laan 14, B-8300 Knokke (Belgie). Tel. 
050-604684. 

@ Een petspeed-recompiler of een data- 
base in Basie voor relatieve bestanden. 
W. van Vilet. Tel. 01806-15541. 

@ Audio Spectrum Anulizer (bekende 
progr. Adam Curry). Tevens andere softw. 
voor de CBM-64 om te ruilen. Rob vd 
Brug, Postbus 439, 7500 AK Enschede. 
@ Voor CBM-64 op tape tegen ki. verg. 
J. van Bussel, Allendelaan 52, 8161 DB 
Epe. Tel. 05780-20224. 

@ Wie kan mij helpen aan een handl. 
voor het progr. The Micro Astrologer van 
CBM. Ook zoek ik andere progr. over 
astrologie. V.de Moor, Oostervenne 223, 
1444 XJ Purmerend. Tel. 02990-37749. 
@ Voor de VC-20 op tape. Tevens gevr. 
of te ruilen porno games op tape voor 
CBM-64. Edwin. Tel. 010-4703088. 


OVERIGEN 

@ Gevr. nr.-0 Comm. Dossier + alle CD- 
Actief’s tegen verg. Peter Goris, Linden- 
laan 4, B-8470 De Panne (Belgie). 

@ Ik zoek slimme machinetaal softw. 
man/vrouw om musicprojekt op te zetten 
in de omgev. Maassluis. Tel. (tussen 18 
en 22 uur) 01899-25532. 

@ Wie kan mij helpen aan de handi. voor 
het spel Archon tegen betal. of te ruilen 
voor softw. S.vd Meulen, J Catsstr. 8, 
3221 TL Hellevoetsiuis. Tel. 01883-19148. 


VOOR DE 
GOEDE ORDE 


Wellicht ten overvioede, maar 
we willen u er nogmaals zeer 
dringend op wijzen dat adver- 
tenties waarin illegale software 
wordt aangeboden zullen wor- 
den geweigerd. Er zijn nog 
steeds veel mensen die vele 
honderden spelleties te ruil of 
soms zelfs te koop aanbieden. 
ledereen kan op zijn klompen 
aanvoelen dat het hier om zo- 
genoemde ‘gekraakte’ softwa- 
re gaat. Helaas slippen er nu 
en dan dergelijke advertenties 
door onze selectie. We verzoe- 
ken dan ook dringend dergelij- 
ke advertenties niet meer op 
te sturen. Het is ook voor uw 
eigen bestwil. Het wil nog wel- 
eens gebeuren dat de Stich- 
ting Bescherming Software sa- 
men met de politie een be- 
zoekje brengt aan aanbieders 
van illegale programmatuur. 
Het spreekt voor zich dat de 
aanbieders van legale software 
van harte welkom zijn in de 
gratis advertentie-rubriek. 
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FINGER TIP 
CONTROL 
IS WITHIN . 
YOUR GRASP. 


Konix 


SPEEDKING 
A Major Breakthrough 
in Joystick Design 


Tau Ceti 

Een weergaloos ruimte-avontuur in de beste Elite 
en Mercenary traditie. 

Een perfecte combinatie van arcade actie en 
strategisch denken. 

Spelpositie kan op tape/disk gesaved worden. 


Rocky Horror Show C128 

Het allereerste arcade adventure-spel uitsluitend 
voor de CBM128 in 128 mode. Uitgebreid met 
talloze lokaties biedt dit grafisch grandioze spel 
tientallen uren spelgenot. 


Konix Speedking joystick 

Revolutionaire vormgeving! Nooit eerder lag een 
joystick zo perfect in de hand. Razendsnelle 
microswitches zorgen ervoor dat geen enkel spel 
ooit nog problemen op zal leveren. Geschikt voor 
Commodore 64/128, Atari en MSX. 


Weer drie sensationele produkten uit de 


_uitgebreide HomeSoft catalogus. Voor nadere © 
informatie raadpleeg Uw dealer. 


Home Software Benelux bv 


Home Software Benelux bv 
Jansweg 52 

2011 KN Haarlem/Holland 
Telefoon (023) 318488 

Nr. K.V.K. 57.860 Haarlem 
Bank: ABN Haarlem 
Banknummer: 56.04.13.947 
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DE COMMODORE 128 HEEFT NU EEN 
SUPERSNELLE, INGEBOUWDE nyt) 111 



















De Commodore 128D heeft alle 
voortreffelijke eigenschappen die de 
Commodore 64 tot tweemaal toe tot 
Home Computer van het jaar hebben 
gemaakt. Plus dit. Een tweemaal zo 
groat intern geheugen van 128 Kb RAM 
dat maar liefst uitbreidbaar is tot 512 Kb. 

Ofwel de capaciteit van een flinke 
kantoorcomputer. Bovendien heeft de 
Commodore 128D een ingebouwde, su- 
persnelle diskdrive (360 Kb), waardoor 
het nog plezieriger is om met de 
128D te werken. 

Daarnaast is hij nog portable ook. 
et de Commodore 128D moeiteloos 
iar uw hand in de krachtige Basic 7.0 
taal, waarmee u een scala van nieuwe 
opdrachten en functies, met name op 
grafisch- en geluidgebied ter beschikking 
heeft. Briljante kleurgrafieken, bewegen- 
de sprites en hifi-geluid; de Commodore 
128D legt uw creativiteit geen enkele 
beperking op. Ook al doordat de 128D . 
probleemloos werkt met alle C-64 pro- 
gramma’s plus de zakelijke software 
volgens CP/M standaard. 

U kunt putten uit een scala van 
vele honderden Nederlandstalige hobby-, 
educatieve- en zakelijke programma’s 
zoals boekhouden, — tekstverwerking, 
adresbestanden, calculatie- en statistiek- 
programma’s, enz. 

Het enige waarin de Commodore 
128D bescheiden is, is zijn prijs. Precies 
zoals u dat van Commodore gewend 
bent. 


Commodore 


Daar wordt een mens wijzer van. 





